home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / swapblocks.raz < prev    next >
Text File  |  1994-10-08  |  1KB  |  41 lines
  1. /** $VER: SwapBlocks.raz 1.1 (8.10.94)
  2.  **
  3.  ** Pour inverser deux blocs. Rectangulaires aussi. Cool.
  4.  **/
  5.  
  6. OPTIONS RESULTS
  7.  
  8. /*------ Lit les blocs ------*/
  9.  
  10. GetNumBlocks;   IF (RESULT ~= 2) THEN EXIT
  11.  
  12. GetBlockInfo 1; PARSE VAR RESULT . rectangle1 startline1 startcol1 . .
  13. GetBlock 1;     contains1 = RESULT
  14.  
  15. GetBlockInfo 2; PARSE VAR RESULT . rectangle2 startline2 startcol2 . .
  16. GetBlock 2;     contains2 = RESULT
  17.  
  18. /*------ Marque le début du 2ème ------*/
  19.  
  20. BMAdd DELPROOF '"_SwapBlocks.raz : StartBlock 2"' startline2 startcol2
  21.  
  22. Lock DISPLAY ON
  23.  
  24. /*------ Efface les blocs et vient au début du 2ème ------*/
  25.  
  26. Block ERASE
  27. BMCursor '"_SwapBlocks.raz : StartBlock 2"'
  28. BMRemove '"_SwapBlocks.raz : StartBlock 2"'
  29.  
  30. /*------ Remet le 1er, puis le 2ème ------*/
  31.  
  32. IF (rectangle1 = "ON")
  33.     THEN Text2Win RECT TEXT contains1
  34.     ELSE Text2Win      TEXT contains1
  35.  
  36. IF (rectangle2 = "ON")
  37.     THEN Text2Win LINE startline1 COL startcol1 RECT TEXT contains2
  38.     ELSE Text2Win LINE startline1 COL startcol1      TEXT contains2
  39.  
  40. Lock DISPLAY OFF
  41.